SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TDCHEQ_BANC_I01]  
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                --*/  
/*---Cliente              : OFISIS                       --*/  
/*---Sistema              : Tesoreria                  --*/  
/*---Modulo               : Empresa                    --*/  
/*---Programa             : Grabacion Detalle          --*/  
/*---                       Distrib Bancos (ingresos)  --*/  
/*---Script               : tdbanc_p.sql               --*/  
/*---Nombre SP            : SP_TDCHEQ_BANC_I01         --*/  
/*---Desarrollado por     : Denis Villacres P.         --*/  
/*---Fecha Creaci÷n       : 13/06/2001                 --*/  
/*---Base Datos           : Microsoft Sql Server       --*/  
/*---Versi÷n              : 7.0                        --*/  
/*---Invoca a SP          :                            --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Modificado 1 por     : Maribel Julca Rodriguez    --*/  
/*---Fecha Modificaci©n   : 21/04/2005                 --*/   
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA, CO_USUA_MODI  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*--- Drop Proc SP_TDCHEQ_BANC_I01                     --*/  
/*--- Grant all on SP_TDCHEQ_BANC_I01 to public        --*/   
/*--- SP_TDCHEQ_BANC_I01                               --*/  
/*-------------------------------------------------------*/  
 @ISCO_EMPR   TD_VC_002,   
 @ISCO_USUA_MODI  TD_VC_008_USUA,  
 @ISCO_BANC   TD_VC_003,   
 @ISNU_CNTA_BANC  TD_VC_020,  
 @ISAA_BNCO   TD_VC_004,   
 @ISMM_BNCO   TD_VC_002,   
 @ISTI_MOVI_BANC  TD_VC_001,    
 @ISNU_COMP_BANC  TD_VC_008,   
 @INNU_SECU   TD_IN_001,  
 @ISTI_ENTI   TD_VC_001,  
 @ISCO_ENTI   TD_VC_020,  
 @ISCO_BANC_CHEQ TD_VC_003,   
 @ISNU_CHEQ  TD_VC_020,   
 @ISCO_MONE   TD_VC_003,  
 @INIM_CHEQ   TD_NU_016_004,  
 @INIM_CONV   TD_NU_016_004,  
 @IDFE_DISP   TD_DT_001,  
 @IDFE_DIFE   TD_DT_001,
 @ISCO_UNID_CNTB TD_VC_003
	As
Declare   
   @VNIM_MOVI_ANTE  TD_NU_016_004,  
   @VNIM_TOTA_CHEQ  TD_NU_016_004  
  
 Begin Tran SP_TDCHEQ_BANC_I01  
  
 Insert Into TDCHEQ_BANC (CO_EMPR, CO_BANC, NU_CNTA_BANC, AA_BNCO,   
  MM_BNCO, TI_MOVI_BANC,  NU_COMP_BANC, NU_SECU, TI_ENTI,   
  CO_ENTI, CO_BANC_CHEQ, NU_CHEQ, CO_MONE, IM_CHEQ, IM_CONV,   
  FE_DISP, FE_DIFE, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI, CO_UNID_CONC)
  
 Values (@ISCO_EMPR, @ISCO_BANC, @ISNU_CNTA_BANC, @ISAA_BNCO,   
  @ISMM_BNCO, @ISTI_MOVI_BANC, @ISNU_COMP_BANC, @INNU_SECU, @ISTI_ENTI,   
  @ISCO_ENTI, @ISCO_BANC_CHEQ, @ISNU_CHEQ, @ISCO_MONE, @INIM_CHEQ, @INIM_CONV,   
  @IDFE_DISP, @IDFE_DIFE,@ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE(), @ISCO_UNID_CNTB)  
  
 If @@error <> 0  
           Begin  
             Rollback tran  
      Return  
           End      
  
      Select  @VNIM_MOVI_ANTE  = Isnull(IM_MOVI,0)   
      FROM    TCMOVI_BANC  
      WHERE CO_EMPR = @ISCO_EMPR   
       And CO_UNID_CONC = @ISCO_UNID_CNTB
       And CO_BANC = @ISCO_BANC   
       And NU_CNTA_BANC = @ISNU_CNTA_BANC    
       And AA_BNCO = @ISAA_BNCO  
       And MM_BNCO = @ISMM_BNCO   
       And TI_MOVI_BANC = @ISTI_MOVI_BANC  
       And NU_COMP_BANC = @ISNU_COMP_BANC   
  
  
     /* Sumo todos los Cheques */  
  
       Select @VNIM_TOTA_CHEQ = IsNull(Sum(Isnull(IM_CONV,0)),0)  
       From TDCHEQ_BANC  
       Where CO_EMPR = @ISCO_EMPR  
       And CO_UNID_CONC = @ISCO_UNID_CNTB
       And CO_BANC = @ISCO_BANC  
       And NU_CNTA_BANC = @ISNU_CNTA_BANC  
       And AA_BNCO = @ISAA_BNCO  
       And MM_BNCO = @ISMM_BNCO  
       And TI_MOVI_BANC = @ISTI_MOVI_BANC  
       And NU_COMP_BANC = @ISNU_COMP_BANC  
  
  
       Update  TCMOVI_BANC  
       Set IM_MOVI = Round(@VNIM_TOTA_CHEQ,2),  
           CO_USUA_MODI = @ISCO_USUA_MODI,   
           FE_USUA_MODI = getdate()           
       Where  CO_EMPR = @ISCO_EMPR   
       And CO_UNID_CONC = @ISCO_UNID_CNTB
       And CO_BANC = @ISCO_BANC   
       And NU_CNTA_BANC = @ISNU_CNTA_BANC   
       And AA_BNCO = @ISAA_BNCO  
       And MM_BNCO = @ISMM_BNCO   
       And TI_MOVI_BANC = @ISTI_MOVI_BANC   
       And NU_COMP_BANC = @ISNU_COMP_BANC   
  
     If @@error <> 0  
        Begin  
          Rollback tran  
     Return  
        End    
  
  
commit tran  
  
/*------------------------ Fin ------------------------------*/


GO
